home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 90 / Tiger_Disk_090_20xx_Tiger-Crew-Disk_de_Side_B.d64 / ende ii_65 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  8 lines
  1. 1 poke53280,2:poke53281,.:print"[147]     aus lukian's nonsens-werkstatt     ";:forz=1to250:next:poke53280,.:poke53265,80:gosub7:forc=0to21step.7:poke53272,peek(53272)and240:poke646,c:print"[160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [157][160] [160] [160] [160] [160] [160] [160] [160] [160] [160]";:poke53284,c:print"";:poke53282,peek(53283)andc:next
  2. 3 poke56325,55:a=a+1:ifa>1then6
  3. 4 forc=2to13:poke646,c+1:print"";:print"[147][146] [189][189][189][189]  [189][189][189][189] [189]   [189] [189]    [189]   [189]  [189][189][189][189]  [189][189][189][189]";:print"[189]     [189]     [189]   [189] [189]    [189]   [189] [189]     [189]":print" [189][189][189]  [189]     [189][189][189][189][189] [189]    [189]   [189]  [189][189][189]   [189][189][189]":print"    [189] [189]     [189]   [189] [189]    [189]   [189]     [189]     [189]";
  4. 5 print"[189][189][189][189]   [189][189][189][189] [189]   [189] [189][189][189][189]  [189][189][189]  [189][189][189][189]  [189][189][189][189]":poke53282,c:forp=0to80:print"                                        [157][157][157][157][157][157] [145]";:fort=0to30:next:gosub7:poke56325,.:poke53272,21:print"[147][150] es tut mir ja furchtbar leid,  aber    ":fort=1to15:next:goto3
  5. 6 print"[155][147][160][160][160][160][160][206][160][213][160][206][160][160][160][201][160][211][160][212][160][160][160][215][160][201][160][210][160][203][160][204][160][201][160][195][160][200][160][160][160][160]":forz=1to350:next:forf=4to13step.3:poke53280,f::poke53280,.:poke53281,.::poke53281,f:poke53281,.:next:forc=2to12:poke53284,c:poke53282,c+5:poke53283,c/3:next:goto8
  6. 7 s=54272:pokes+24,15:pokes+4,21:pokes+11,17:pokes+5,13:pokes+12,9:pokes+6,139:pokes+13,87:ford=10to33:pokes+4,20:pokes+11,80:pokes+11,rnd(1)*32:pokes+1,11+rnd(1)*d:pokes+8,d+abs(11-d):next:return:
  7. 8 pokes+4,17:fort=1to13:pokes+1,5+abs(15+t):pokes+5,9:pokes+6,34:next:pokes+11,128:pokes+12,9:pokes+13,139:pokes+8,34:pokes+4,129:pokes+11,129:poke56325,1:pokes+5,9:pokes+11,128:poke56325,1:print"[153][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][160]e n d e ![160]";:fort=1to500:next:sys2048
  8.